! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialization File
! 
! Generated by KPP-2.2.3 symbolic chemistry Kinetics PreProcessor
!       (http://www.cs.vt.edu/~asandu/Software/KPP)
! KPP is distributed under GPL, the general public licence
!       (http://www.gnu.org/copyleft/gpl.html)
! (C) 1995-1997, V. Damian & A. Sandu, CGRER, Univ. Iowa
! (C) 1997-2005, A. Sandu, Michigan Tech, Virginia Tech
!     With important contributions from:
!        M. Damian, Villanova University, USA
!        R. Sander, Max-Planck Institute for Chemistry, Mainz, Germany
! 
! File                 : aromatics_kpp_Initialize.f90
! Time                 : Thu Jun 11 15:48:57 2020
! Working directory    : /n/home08/kbates/Aromatics/MECCA_chamber
! Equation file        : aromatics_kpp.kpp
! Output root filename : aromatics_kpp
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



MODULE aromatics_kpp_Initialize

  USE aromatics_kpp_Parameters, ONLY: dp, NVAR, NFIX
  IMPLICIT NONE

CONTAINS


! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
! 
! Initialize - function to initialize concentrations
!   Arguments :
! 
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

SUBROUTINE Initialize ( )


  USE aromatics_kpp_Global

  INTEGER :: i
  REAL(kind=dp) :: x

  CFACTOR = 2.500000e+19_dp

  x = (1.0E-30)*CFACTOR
  DO i = 1, NVAR
    VAR(i) = x
  END DO

  x = (1.0E-30)*CFACTOR
  DO i = 1, NFIX
    FIX(i) = x
  END DO

  VAR(48) = (1.0001E-2)*(0.0E-9)*CFACTOR
  VAR(73) = (1.0002E-2)*(0.0E-9)*CFACTOR
  VAR(388) = (1.0003E-2)*(1.0E-3)*CFACTOR
  VAR(407) = (4.9999E-1)*(5.0E-6)*CFACTOR
  VAR(731) = (5.0004E-3)*(5.0E-3)*CFACTOR
  FIX(2) = (2.1E-1)*CFACTOR
! constant rate coefficients
  RCONST(13) = 5.35e+07
  RCONST(22) = 2e-11
  RCONST(26) = 4e-12
  RCONST(102) = 4.01e-12
  RCONST(103) = 1.01e-12
  RCONST(104) = 2.61e-12
  RCONST(105) = 9.32e-12
  RCONST(106) = 3.9e-16
  RCONST(117) = 2.3e-12
  RCONST(123) = 2.3e-12
  RCONST(141) = 2.3e-12
  RCONST(147) = 2.3e-12
  RCONST(166) = 2.3e-12
  RCONST(172) = 2.3e-12
  RCONST(189) = 2.3e-12
  RCONST(207) = 2.3e-12
  RCONST(219) = 2.3e-12
  RCONST(268) = 2.3e-12
  RCONST(274) = 2.3e-12
  RCONST(279) = 2.3e-12
  RCONST(286) = 2.3e-12
  RCONST(334) = 2.3e-12
  RCONST(340) = 2.3e-12
  RCONST(348) = 2.3e-12
  RCONST(353) = 2.3e-12
  RCONST(388) = 2.3e-12
  RCONST(394) = 2.3e-12
  RCONST(399) = 2.3e-12
  RCONST(406) = 2.3e-12
  RCONST(435) = 2.3e-12
  RCONST(441) = 2.3e-12
  RCONST(455) = 2.3e-12
  RCONST(463) = 2.3e-12
  RCONST(477) = 2.3e-12
  RCONST(482) = 2.3e-12
  RCONST(513) = 2.3e-12
  RCONST(519) = 2.3e-12
  RCONST(533) = 2.3e-12
  RCONST(578) = 2.3e-12
  RCONST(614) = 2.3e-12
  RCONST(634) = 2.3e-12
  RCONST(689) = 2.3e-12
  RCONST(720) = 2.3e-12
  RCONST(746) = 2.3e-12
  RCONST(785) = 2.3e-12
  RCONST(819) = 2.3e-12
  RCONST(843) = 2.3e-12
  RCONST(851) = 2.3e-12
  RCONST(924) = 2.3e-12
  RCONST(930) = 2.3e-12
  RCONST(936) = 2.3e-12
  RCONST(942) = 2.3e-12
  RCONST(962) = 2.3e-12
  RCONST(973) = 2.3e-12
  RCONST(983) = 2.3e-12
  RCONST(988) = 2.3e-12
  RCONST(994) = 2.3e-12
  RCONST(1028) = 2.3e-12
  RCONST(1055) = 2.3e-12
  RCONST(1060) = 2.3e-12
  RCONST(1064) = 2.3e-12
  RCONST(1070) = 2.3e-12
  RCONST(1083) = 2.3e-12
  RCONST(1088) = 2.3e-12
  RCONST(1092) = 2.3e-12
  RCONST(1096) = 2.3e-12
  RCONST(1127) = 2.3e-12
  RCONST(1144) = 2.3e-12
  RCONST(1158) = 2.3e-12
  RCONST(1164) = 2.3e-12
  RCONST(1176) = 2.3e-12
  RCONST(1223) = 2.3e-12
  RCONST(1240) = 2.3e-12
  RCONST(1296) = 2.3e-12
  RCONST(1302) = 2.3e-12
  RCONST(1332) = 2.3e-12
  RCONST(1348) = 2.3e-12
  RCONST(1352) = 2.3e-12
  RCONST(1356) = 2.3e-12
  RCONST(1362) = 2.3e-12
  RCONST(1366) = 2.3e-12
  RCONST(1434) = 2.3e-12
  RCONST(1458) = 2.3e-12
  RCONST(1462) = 2.3e-12
  RCONST(1466) = 2.3e-12
  RCONST(1471) = 2.3e-12
  RCONST(1475) = 2.3e-12
  RCONST(1501) = 2.3e-12
  RCONST(1505) = 2.3e-12
  RCONST(1509) = 2.3e-12
  RCONST(1514) = 2.3e-12
  RCONST(1518) = 2.3e-12
  RCONST(1532) = 2.3e-12
  RCONST(1536) = 2.3e-12
  RCONST(1540) = 2.3e-12
  RCONST(1546) = 2.3e-12
  RCONST(1550) = 2.3e-12
  RCONST(1556) = 2.3e-12
  RCONST(1560) = 2.3e-12
  RCONST(1568) = 2.3e-12
  RCONST(1572) = 2.3e-12
  RCONST(1576) = 2.3e-12
  RCONST(1599) = 2.3e-12
  RCONST(1608) = 2.3e-12
  RCONST(1622) = 2.3e-12
  RCONST(1633) = 2.3e-12
  RCONST(1637) = 2.3e-12
  RCONST(1664) = 2.3e-12
  RCONST(1669) = 2.3e-12
  RCONST(1676) = 2.3e-12
  RCONST(1691) = 2.3e-12
  RCONST(1706) = 2.3e-12
  RCONST(1710) = 2.3e-12
  RCONST(1729) = 2.3e-12
  RCONST(1734) = 2.3e-12
  RCONST(1738) = 2.3e-12
  RCONST(1757) = 2.3e-12
  RCONST(1761) = 2.3e-12
  RCONST(1789) = 2.3e-12
  RCONST(1793) = 2.3e-12
  RCONST(1968) = 2.3e-12
! END constant rate coefficients

! INLINED initializations

        TSTART = 0
        TEND = TSTART + 180000
        DT = 60.0
        TEMP = 278 + 30.0

! End INLINED initializations

      
END SUBROUTINE Initialize

! End of Initialize function
! ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~



END MODULE aromatics_kpp_Initialize

